home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / ue312amiga / amiga / amiga.diffs < prev    next >
Text File  |  1996-04-24  |  22KB  |  851 lines
  1. diff -adrc orig/h/eproto.h ue312/h/eproto.h
  2. *** orig/h/eproto.h    Wed Apr 21 15:22:28 1993
  3. --- ue312/h/eproto.h    Wed Apr 24 16:24:00 1996
  4. ***************
  5. *** 36,41 ****
  6. --- 36,47 ----
  7.   extern VOID PASCAL NEAR vtscreen (SCREEN *sp);
  8.   #endif
  9.   
  10. + #if AMIGA
  11. + #ifdef __SASC
  12. + int FileReq(char *, char *, unsigned);
  13. + #endif
  14. + #endif
  15. + 
  16.   #if CALLED
  17.   extern int emacs(int argc, char *argv[]);
  18.   #endif
  19. ***************
  20. *** 541,546 ****
  21. --- 547,553 ----
  22.   #include <stdlib.h>
  23.   #include <string.h>
  24.   #else
  25. + #if !(defined(__SASC) && defined(_STRING_H))
  26.   char *strcat(char *, char *);
  27.   char *strcpy(char *, char *);
  28.   int  strlen(char *);
  29. ***************
  30. *** 547,552 ****
  31. --- 554,560 ----
  32.   int  strncmp(char *, char *, int);
  33.   char *strchr(char *, int);
  34.   int  strcmp(char *, char *);
  35. + #endif
  36.   char *realloc(char *block, int siz);
  37.   #if RAMSIZE == 0
  38.   char *malloc(int);
  39. diff -adrc orig/src/amigados.c ue312/src/amigados.c
  40. *** orig/src/amigados.c    Tue Mar 02 16:23:54 1993
  41. --- ue312/src/amigados.c    Wed Apr 24 17:16:33 1996
  42. ***************
  43. *** 4,15 ****
  44. --- 4,69 ----
  45.   */
  46.   
  47.   #include        <stdio.h>
  48. + #ifdef __SASC
  49. + #include    <string.h>
  50. + #else
  51. + #define __aligned
  52. + #endif
  53. + 
  54.   #include    "estruct.h"
  55.   #if    AMIGA
  56.   #include    <exec/types.h>
  57.   #include    <exec/io.h>
  58. + #include    <exec/memory.h>
  59. + #include    <exec/libraries.h>
  60. + #include    <devices/inputevent.h>
  61. + #include    <graphics/text.h>
  62. + #include    <graphics/gfxbase.h>
  63. + #include    <graphics/view.h>
  64. + #include    <graphics/displayinfo.h>
  65.   #include    <intuition/intuition.h>
  66. + #include    <intuition/intuitionbase.h>
  67. + #include    <intuition/screens.h>
  68. + #include    <utility/tagitem.h>
  69. + #include    <libraries/asl.h>
  70.   #include    <devices/console.h>
  71. + #include    <dos/dos.h>
  72. + 
  73. + #ifdef __SASC
  74. + #include <proto/dos.h>
  75. + #include <clib/exec_protos.h>
  76. + #include <clib/graphics_protos.h>
  77. + #include <clib/intuition_protos.h>
  78. + #include <clib/console_protos.h>
  79. + #include <clib/asl_protos.h>
  80. + #include <pragmas/exec_pragmas.h>
  81. + #include <pragmas/graphics_pragmas.h>
  82. + #include <pragmas/intuition_pragmas.h>
  83. + #include <pragmas/console_pragmas.h>
  84. + #include <pragmas/asl_pragmas.h>
  85. + 
  86. + void in_init(void);
  87. + int in_check(void);
  88. + void in_put(int);
  89. + int in_get(void);
  90. + int mod(int);
  91. + int sendcon(char *buf);
  92. + int doevent(void);
  93. + void dokey(struct InputEvent *);
  94. + int stuffibuf(int, int, int );
  95. + int spawncli(int , int );
  96. + int spawn(int , int );
  97. + int execprg(int , int );
  98. + int pipecmd(int , int );
  99. + void adoshello(void);
  100. + char *MakePathname(char *, char *);
  101. + int FileReq(char *, char *, unsigned);
  102. + #endif
  103. + 
  104. + #ifdef AZTEC_C
  105. + #define memset(a,b,c) setmem(a,c,b)
  106. + #endif
  107. + 
  108.   #include    "eproto.h"
  109.   #include        "edef.h"
  110.   #include    "elang.h"
  111. ***************
  112. *** 16,33 ****
  113.   
  114.   #define INTUITION_REV    0L
  115.   #define    NEW         1006L
  116. ! #define    CRWIDTH        8
  117.   #define    CRHEIGHT    8
  118.   
  119. ! struct IntuitionBase *IntuitionBase;
  120.   struct Window *win;
  121.   struct IOStdReq con;        /* ptr to console device driver handle */
  122.   
  123.   /*    Intuition Function type declarations    */
  124.   
  125. ! struct IntuitionBase *OpenLibrary();
  126.   struct Window *OpenWindow();
  127. ! struct IntuiMessage *GetMsg();
  128.   
  129.   typedef struct {
  130.       short rw_code;        /* normal keycode to generate */
  131. --- 70,108 ----
  132.   
  133.   #define INTUITION_REV    0L
  134.   #define    NEW         1006L
  135. ! 
  136. ! #ifdef FORCE_TOPAZ80 /* FORCE_TOPAZ80 is obsolete, now we're font sensitive */
  137. ! #define    CRWIDTH        8 /* constant values for TOPAZ80 */
  138.   #define    CRHEIGHT    8
  139. + #else
  140. + #define    CRWIDTH        theFont->tf_XSize  /* now font sensitive, */
  141. + #define    CRHEIGHT    theFont->tf_YSize  /* use variable values */
  142. + #endif
  143.   
  144. ! struct IntuitionBase *IntuitionBase = 0L;
  145. ! struct GfxBase *GfxBase = 0L;
  146. ! struct Library *ConsoleDevice = 0L;
  147. ! struct Library *AslBase = 0L;
  148. ! 
  149. ! struct Screen *scr;
  150.   struct Window *win;
  151.   struct IOStdReq con;        /* ptr to console device driver handle */
  152. + static struct TextFont *theFont;
  153. + #ifdef FORCE_TOPAZ80 /* FORCE_TOPAZ80 is obsolete, now we're font sensitive */
  154. + static struct TextAttr *theTextAttr;
  155. + #endif
  156.   
  157.   /*    Intuition Function type declarations    */
  158.   
  159. ! #ifndef __SASC
  160. ! struct Library *OpenLibrary();
  161.   struct Window *OpenWindow();
  162. ! struct Message *GetMsg();
  163. ! #endif
  164. ! 
  165. ! #ifdef AMIGA
  166. ! extern NOSHARE TERM term;
  167. ! #endif
  168.   
  169.   typedef struct {
  170.       short rw_code;        /* normal keycode to generate */
  171. ***************
  172. *** 165,177 ****
  173.   int in_next = 0;        /* pos to retrieve next input character */
  174.   int in_last = 0;        /* pos to place most recent input character */
  175.   
  176. ! in_init()    /* initialize the input buffer */
  177.   
  178.   {
  179.       in_next = in_last = 0;
  180.   }
  181.   
  182. ! in_check()    /* is the input buffer non-empty? */
  183.   
  184.   {
  185.       if (in_next == in_last)
  186. --- 240,252 ----
  187.   int in_next = 0;        /* pos to retrieve next input character */
  188.   int in_last = 0;        /* pos to place most recent input character */
  189.   
  190. ! void in_init()    /* initialize the input buffer */
  191.   
  192.   {
  193.       in_next = in_last = 0;
  194.   }
  195.   
  196. ! int in_check()    /* is the input buffer non-empty? */
  197.   
  198.   {
  199.       if (in_next == in_last)
  200. ***************
  201. *** 180,186 ****
  202.           return(TRUE);
  203.   }
  204.   
  205. ! in_put(event)
  206.   
  207.   int event;    /* event to enter into the input buffer */
  208.   
  209. --- 255,261 ----
  210.           return(TRUE);
  211.   }
  212.   
  213. ! void in_put(event)
  214.   
  215.   int event;    /* event to enter into the input buffer */
  216.   
  217. ***************
  218. *** 206,212 ****
  219.    */
  220.   ttopen()
  221.   {
  222. !     struct NewWindow new_win;
  223.       int i;
  224.   #if    AZTEC
  225.       extern    Enable_Abort;    /* Turn off ctrl-C interrupt */
  226. --- 281,293 ----
  227.    */
  228.   ttopen()
  229.   {
  230. !     struct Screen *DefaultScr;
  231. !     struct NewScreen *new_scr = 0L;
  232. !     __aligned struct NewWindow new_win;
  233. ! #ifdef FORCE_TOPAZ80
  234. !     __aligned static char fontname[] = "topaz.font";
  235. ! #endif
  236. ! 
  237.       int i;
  238.   #if    AZTEC
  239.       extern    Enable_Abort;    /* Turn off ctrl-C interrupt */
  240. ***************
  241. *** 215,265 ****
  242.   #endif
  243.       strcpy(os, "AMIGADOS");
  244.   
  245.       /* open the intuition library */
  246.       IntuitionBase = (struct IntuitionBase *)
  247.           OpenLibrary("intuition.library", INTUITION_REV);
  248.       if (IntuitionBase == NULL) {
  249.           printf("%%Can not open Intuition\n");
  250.           exit(-1);
  251.       }
  252.   
  253.       /* initialize the new windows attributes */
  254.       new_win.LeftEdge = 0;
  255.       new_win.TopEdge = 0;
  256.       new_win.Width = 640;
  257. !     new_win.Height = 200;
  258.       new_win.DetailPen = 0;
  259.       new_win.BlockPen = 1;
  260.       new_win.Title = (unsigned char *)"MicroEMACS 3.12g/Amiga";
  261.       new_win.Flags = WINDOWCLOSE | SMART_REFRESH | ACTIVATE |
  262.           WINDOWDRAG | WINDOWDEPTH | WINDOWSIZING | SIZEBRIGHT |
  263.           RMBTRAP | NOCAREREFRESH;
  264.       new_win.IDCMPFlags = CLOSEWINDOW | NEWSIZE | MOUSEBUTTONS |
  265.           RAWKEY;
  266. !     new_win.Type = WBENCHSCREEN;
  267.       new_win.FirstGadget = NULL;
  268.       new_win.CheckMark = NULL;
  269. !     new_win.Screen = NULL;
  270.       new_win.BitMap = NULL;
  271.       new_win.MinWidth = 100;
  272.       new_win.MinHeight = 25;
  273. !     new_win.MaxWidth = 640;
  274. !     new_win.MaxHeight = 200;
  275.   
  276.       /* open the window! */
  277.       win = (struct Window *)OpenWindow(&new_win);
  278.       if (win == NULL) {
  279.           printf("%%Can not open a window\n");
  280.           exit(-2);
  281.       }
  282. ! 
  283.       /* and open up the console for output */
  284.       con.io_Data = (APTR)win;
  285. !     OpenDevice("console.device", 0, &con, 0);
  286.   
  287.       /* and init all the keyboard flags */
  288.       r_shiftflag = FALSE;
  289. !     l_shiftflag = FALSE;    r_altflag = FALSE;
  290.       l_altflag = FALSE;
  291.       r_amiflag = FALSE;
  292.       l_amiflag = FALSE;
  293. --- 296,458 ----
  294.   #endif
  295.       strcpy(os, "AMIGADOS");
  296.   
  297. +     GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 33L);
  298. +     if (GfxBase == NULL) {
  299. +         printf("%%Can not open graphics.library\n");
  300. +         exit(-1);
  301. +     }
  302. + 
  303.       /* open the intuition library */
  304.       IntuitionBase = (struct IntuitionBase *)
  305.           OpenLibrary("intuition.library", INTUITION_REV);
  306.       if (IntuitionBase == NULL) {
  307. +                 if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  308.           printf("%%Can not open Intuition\n");
  309.           exit(-1);
  310.       }
  311. +     /* open the ASL library */
  312. +     AslBase = (struct Library *)
  313. +         OpenLibrary("asl.library", 38L);
  314. +     if (AslBase == NULL) {
  315. +                 if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  316. +                 if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  317. +         printf("%%Can not open asl.library\n");
  318. +         exit(-1);
  319. +     }
  320. + 
  321. + #ifdef FORCE_TOPAZ80
  322. +         theTextAttr = AllocMem(sizeof(struct TextAttr),MEMF_PUBLIC|MEMF_CLEAR);
  323. +         if (theTextAttr == NULL) {
  324. +         printf("%%Not enough memory\n");
  325. +         exit(-2);
  326. +         };
  327. +         theTextAttr->ta_Name = fontname;
  328. +         theTextAttr->ta_YSize = 8;
  329. +         theTextAttr->ta_Style = FS_NORMAL;
  330. +         theTextAttr->ta_Flags = FPF_ROMFONT;
  331. + 
  332. +         theFont = OpenFont(theTextAttr);
  333. + #else
  334. +         theFont = GfxBase->DefaultFont;
  335. + #endif
  336. + 
  337. +         memset(&new_win,0,sizeof(struct NewWindow));
  338. + 
  339. + #ifndef DEBUG_PRE_V39
  340. +     if (IntuitionBase->LibNode.lib_Version >= 39) {
  341. +           scr = OpenScreenTags(0L,SA_LikeWorkbench,TRUE,
  342. +             SA_Title,(ULONG)((UBYTE*)"MicroEMACS 3.12g/Amiga"),
  343. +             SA_Depth,1,
  344. +             SA_SysFont,0,
  345. +             SA_Type,CUSTOMSCREEN,
  346. +             SA_BlockPen,1,SA_DetailPen,0);
  347. +     }
  348. +     else {
  349. + #else
  350. +         /* provide a matching bracket for pre V39 debugging */
  351. +     {
  352. + #endif
  353. +       new_scr = AllocMem((ULONG)sizeof(struct NewScreen),MEMF_PUBLIC|MEMF_CLEAR);
  354. +           if (new_scr == 0L) {
  355. +             if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  356. +         if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  357. +         if (AslBase) CloseLibrary((struct Library *)AslBase);
  358. +         printf("%%Can not allocate NewScreen structure\n");
  359. +         exit(-1);
  360. +           }
  361. +           DefaultScr = AllocMem(sizeof(struct Screen),MEMF_PUBLIC|MEMF_CLEAR);
  362. +       if (DefaultScr != 0L) { int success;
  363. +         success = GetScreenData(DefaultScr,sizeof(struct Screen), WBENCHSCREEN, NULL);
  364. +         if (success) {
  365. +           new_scr->Width = DefaultScr->Width;
  366. +           new_scr->Height= DefaultScr->Height;
  367. +           new_scr->ViewModes = DefaultScr->ViewPort.Modes;
  368. +             }
  369. +         else {
  370. +           new_scr->Width = 640;
  371. +           new_scr->Height= 200;
  372. +           new_scr->ViewModes = HIRES;
  373. +         }
  374. +             FreeMem(DefaultScr,sizeof(struct Screen));
  375. +             DefaultScr = 0L;
  376. +       }
  377. +       else {
  378. +         new_scr->Width = 640;
  379. +         new_scr->Height= 200;
  380. +         new_scr->ViewModes = HIRES;
  381. +       }
  382. +       new_scr->LeftEdge = 0;
  383. +       new_scr->TopEdge = 0;
  384. +       new_scr->Depth = 1;
  385. +       new_scr->DetailPen = 0;
  386. +       new_scr->BlockPen = 1;
  387. + 
  388. +       new_scr->Type = CUSTOMSCREEN;
  389. + #ifdef FORCE_TOPAZ80
  390. +       new_scr->Font = theTextAttr; /* force use of TOPAZ80 */
  391. + #else
  392. +       new_scr->Font = 0L; /* Use system default font */
  393. + #endif
  394. +       new_scr->DefaultTitle = (unsigned char *)"MicroEMACS 3.12g/Amiga";
  395. +       scr = OpenScreen(new_scr);
  396. +     }
  397.   
  398. +     if (scr == NULL) {
  399. +         printf("%%Can not open a screen\n");
  400. +         exit(-2);
  401. +     }
  402. + 
  403.       /* initialize the new windows attributes */
  404.       new_win.LeftEdge = 0;
  405.       new_win.TopEdge = 0;
  406.       new_win.Width = 640;
  407. !     new_win.Height = scr->Height - scr->BarHeight;
  408.       new_win.DetailPen = 0;
  409.       new_win.BlockPen = 1;
  410.       new_win.Title = (unsigned char *)"MicroEMACS 3.12g/Amiga";
  411. + /*
  412.       new_win.Flags = WINDOWCLOSE | SMART_REFRESH | ACTIVATE |
  413.           WINDOWDRAG | WINDOWDEPTH | WINDOWSIZING | SIZEBRIGHT |
  414.           RMBTRAP | NOCAREREFRESH;
  415.       new_win.IDCMPFlags = CLOSEWINDOW | NEWSIZE | MOUSEBUTTONS |
  416.           RAWKEY;
  417. ! */
  418. !     new_win.Flags = WINDOWCLOSE | SMART_REFRESH | ACTIVATE |
  419. !         WINDOWDRAG | SIZEBRIGHT | BACKDROP | BORDERLESS |
  420. !         RMBTRAP | NOCAREREFRESH;
  421. !     new_win.IDCMPFlags = CLOSEWINDOW | MOUSEBUTTONS |
  422. !         RAWKEY;
  423. !     new_win.Type = CUSTOMSCREEN;
  424.       new_win.FirstGadget = NULL;
  425.       new_win.CheckMark = NULL;
  426. !     new_win.Screen = scr;
  427.       new_win.BitMap = NULL;
  428.       new_win.MinWidth = 100;
  429.       new_win.MinHeight = 25;
  430. !     new_win.MaxWidth = scr->Width;
  431. !     new_win.MaxHeight = scr->Height - scr->BarHeight;
  432.   
  433.       /* open the window! */
  434.       win = (struct Window *)OpenWindow(&new_win);
  435.       if (win == NULL) {
  436. +         if (scr) CloseScreen(scr);
  437. +         if (new_scr) FreeMem(new_scr,(ULONG)sizeof(struct NewScreen));
  438.           printf("%%Can not open a window\n");
  439.           exit(-2);
  440.       }
  441. ! #ifdef FORCE_TOPAZ80
  442. !         if (theFont != NULL) SetFont(win->RPort,theFont);
  443. ! #endif
  444. !         
  445.       /* and open up the console for output */
  446.       con.io_Data = (APTR)win;
  447. !     OpenDevice("console.device", 0, (struct IORequest *)(&con), 0);
  448. !         ConsoleDevice = (struct Library *)con.io_Device;
  449.   
  450.       /* and init all the keyboard flags */
  451.       r_shiftflag = FALSE;
  452. !     l_shiftflag = FALSE;
  453. !     r_altflag = FALSE;
  454.       l_altflag = FALSE;
  455.       r_amiflag = FALSE;
  456.       l_amiflag = FALSE;
  457. ***************
  458. *** 269,282 ****
  459.       /* initialize our private event queue */
  460.       in_init();
  461.   
  462.       /* set the current sizes */
  463. !     newwidth(TRUE, 77);
  464. !     newsize(TRUE, 23);
  465.   
  466.       /* on all screens we are not sure of the initial position
  467.          of the cursor                    */
  468.       ttrow = 999;
  469.       ttcol = 999;
  470.   }
  471.   
  472.   /*
  473. --- 462,480 ----
  474.       /* initialize our private event queue */
  475.       in_init();
  476.   
  477. +     /* font sensitive height and width calculation */
  478. +     term.t_ncol = term.t_mcol = ((win->Width+1)/theFont->tf_XSize);
  479. +         term.t_nrow = term.t_mrow = ((win->Height+1)/theFont->tf_YSize)-1;
  480.       /* set the current sizes */
  481. !     newwidth(TRUE, term.t_mcol);
  482. !     newsize(TRUE, term.t_mrow);
  483.   
  484.       /* on all screens we are not sure of the initial position
  485.          of the cursor                    */
  486.       ttrow = 999;
  487.       ttcol = 999;
  488. + 
  489. +     if (new_scr) FreeMem(new_scr,(ULONG)sizeof(struct NewScreen));
  490.   }
  491.   
  492.   /*
  493. ***************
  494. *** 291,299 ****
  495.       ttflush();
  496.   
  497.       /* and now close up shop */
  498. !     CloseDevice(&con);
  499. !     CloseWindow(win);
  500.       OpenWorkBench();
  501.   }
  502.   
  503.   /*
  504. --- 489,506 ----
  505.       ttflush();
  506.   
  507.       /* and now close up shop */
  508. !     CloseDevice((struct IORequest *)(&con));
  509. !         ConsoleDevice = 0L;
  510. !     if (win) CloseWindow(win);
  511. !         if (scr) CloseScreen(scr);
  512. ! #ifdef FORCE_TOPAZ80
  513. !         if (theFont) CloseFont(theFont);
  514. !         if (theTextAttr) FreeMem(theTextAttr,(ULONG)(sizeof(struct TextAttr)));
  515. ! #endif
  516.       OpenWorkBench();
  517. +     if (AslBase) CloseLibrary(AslBase);
  518. +         if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  519. +         if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  520.   }
  521.   
  522.   /*
  523. ***************
  524. *** 377,382 ****
  525. --- 584,590 ----
  526.   {
  527.       register int eventX, eventY;    /* local copies of the event info */
  528.       struct IntuiMessage *event;    /* current event to repond to */
  529. +         __aligned struct InputEvent ievent = {NULL,IECLASS_RAWKEY,0,0,0};
  530.       ULONG class;    /* class of event */
  531.       USHORT code;    /* data code */
  532.       SHORT x,y;    /* mouse x/y position at time of event */
  533. ***************
  534. *** 386,400 ****
  535.       Wait(1 << win->UserPort->mp_SigBit);
  536.   
  537.       /* get the event and parse it up */
  538. !     while (event = GetMsg(win->UserPort)) {
  539.           class = event->Class;
  540.           code = event->Code;
  541.           eventX = event->MouseX;
  542.           eventY = event->MouseY;
  543. !         ReplyMsg(event);
  544.   
  545.           /* a normal keystroke? */
  546. !         if (class == RAWKEY) {            dokey(code);
  547.               continue;
  548.           }
  549.   
  550. --- 594,613 ----
  551.       Wait(1 << win->UserPort->mp_SigBit);
  552.   
  553.       /* get the event and parse it up */
  554. !     while (event = (struct IntuiMessage *)GetMsg(win->UserPort)) {
  555.           class = event->Class;
  556.           code = event->Code;
  557.           eventX = event->MouseX;
  558.           eventY = event->MouseY;
  559. !         ievent.ie_Code=code;
  560. !         ievent.ie_Qualifier=event->Qualifier;
  561. !         ievent.ie_position.ie_addr = *((APTR*)event->IAddress);
  562. ! 
  563. !         ReplyMsg((struct Message *)event);
  564.   
  565.           /* a normal keystroke? */
  566. !         if (class == RAWKEY) {
  567. !             dokey(&ievent);
  568.               continue;
  569.           }
  570.   
  571. ***************
  572. *** 406,421 ****
  573.   
  574.           /* resolve the mouse address (border adjusted) */
  575.           if (class == NEWSIZE) {
  576. !             x = (win->Width - 5) / CRWIDTH;
  577. !             y = (win->Height - 10) / CRHEIGHT;
  578.           } else {
  579. !             x = (eventX - 5) / CRWIDTH;
  580. !             y = (eventY - 10) / CRHEIGHT;
  581.           }
  582. !         if (x > 77)
  583. !             x = 77;
  584. !         if (y > 23)
  585. !             y = 23;
  586.   
  587.           /* are we resizing the window? */
  588.           if (class == NEWSIZE) {
  589. --- 619,634 ----
  590.   
  591.           /* resolve the mouse address (border adjusted) */
  592.           if (class == NEWSIZE) {
  593. !             x = (win->Width) / CRWIDTH;
  594. !             y = (win->Height-scr->BarHeight) / CRHEIGHT;
  595.           } else {
  596. !             x = (eventX) / CRWIDTH;
  597. !             y = (eventY-scr->BarHeight) / CRHEIGHT;
  598.           }
  599. !         if (x > term.t_mcol)
  600. !             x = term.t_mcol;
  601. !         if (y > term.t_mrow)
  602. !             y = term.t_mrow;
  603.   
  604.           /* are we resizing the window? */
  605.           if (class == NEWSIZE) {
  606. ***************
  607. *** 462,482 ****
  608.       con.io_Command = CMD_WRITE;
  609.   
  610.       /* and perform the I/O */
  611. !     SendIO(&con);
  612.   }
  613.   
  614.   
  615.   /* process an incomming keyboard code */
  616.   
  617. ! dokey(code)
  618. ! 
  619. ! int code;    /* raw keycode to convert */
  620. ! 
  621.   {
  622.       register int ekey;    /* translate emacs key */
  623.       register int dir;    /* key direction (up/down) */
  624.       char buf[NSTRING];
  625.   
  626.       /* decode the direction of the key */
  627.       dir = TRUE;
  628.       if (code > 127) {
  629. --- 675,698 ----
  630.       con.io_Command = CMD_WRITE;
  631.   
  632.       /* and perform the I/O */
  633. !     SendIO((struct IORequest *)(&con));
  634.   }
  635.   
  636.   
  637.   /* process an incomming keyboard code */
  638.   
  639. ! void dokey(IEvent)
  640. ! struct InputEvent *IEvent;
  641.   {
  642.       register int ekey;    /* translate emacs key */
  643.       register int dir;    /* key direction (up/down) */
  644.       char buf[NSTRING];
  645. +         char cvbuf[16];
  646. +         int numchars;
  647. +         int code = IEvent->ie_Code;
  648.   
  649. + #ifdef OLDSTYLE_KEYS
  650. + /* this works for US keyboard only, totally useless for intl. keyboards */
  651.       /* decode the direction of the key */
  652.       dir = TRUE;
  653.       if (code > 127) {
  654. ***************
  655. *** 516,521 ****
  656. --- 732,782 ----
  657.       /* now apply the ALTD modifier */
  658.       if (r_altflag || l_altflag)
  659.           ekey |= ALTD;
  660. + #else
  661. + /* For intl. keyboards use this here */
  662. +     /* decode the direction of the key */
  663. +     dir = TRUE;
  664. +     if (code > 127) {
  665. +         code = code & 127;
  666. +         dir = FALSE; /* Key released */
  667. +     }
  668. +         numchars = RawKeyConvert(IEvent,cvbuf,16,0L);
  669. + 
  670. +     if (numchars == 1) {
  671. +           ekey = cvbuf[0];
  672. +       /* up keystrokes are ignored for the rest of these */
  673. +     }
  674. +     else {
  675. +       if (code >= 0x60) {
  676. +         switch (code) {
  677. + 
  678. +             case 0x60:    l_shiftflag = dir;    break;
  679. +             case 0x61:    r_shiftflag = dir;    break;
  680. +             case 0x62:    lockflag    = dir;    break;
  681. +             case 0x63:    ctrlflag    = dir;    break;
  682. +             case 0x64:    l_altflag   = dir;    break;
  683. +             case 0x65:    r_altflag   = dir;    break;
  684. +             case 0x66:    l_amiflag   = dir;    break;
  685. +             case 0x67:    r_amiflag   = dir;    break;
  686. + 
  687. +         }
  688. +         return;
  689. +       }
  690. +       /* first apply the shift and control modifiers */
  691. +       if (ctrlflag)
  692. +         ekey = keytrans[code].rw_ccode;
  693. +       else if (l_shiftflag || r_shiftflag || lockflag)
  694. +         ekey = keytrans[code].rw_scode;
  695. +       else
  696. +         ekey = keytrans[code].rw_code;
  697. +         }
  698. +     if (dir == FALSE) return;
  699. + 
  700. +         if ((numchars!=1) || ((ekey != '@') && (ekey < 0x7F)))
  701. +       /* now apply the ALTD modifier */
  702. +       if (r_altflag || l_altflag)
  703. +         ekey |= ALTD;
  704. + #endif
  705.   
  706.       /* apply the META prefix */
  707.       if (r_amiflag || l_amiflag) {
  708. ***************
  709. *** 886,892 ****
  710.   }
  711.   
  712.   #else
  713. ! adoshello()
  714.   {
  715.   }
  716.   #endif
  717. --- 1147,1198 ----
  718.   }
  719.   
  720.   #else
  721. ! void adoshello(void)
  722.   {
  723.   }
  724.   #endif
  725. + 
  726. + char *MakePathname(Path, Filename)
  727. + char *Path;
  728. + char *Filename;
  729. + {
  730. +   static char namebuffer[256];
  731. + 
  732. +   strcpy(namebuffer,Path);
  733. +   if (*namebuffer != '\0') {
  734. +     char ch=namebuffer[strlen(namebuffer)-1];
  735. +     if ((ch != ':') && (ch != '/')) strcat(namebuffer,"/");
  736. +   }
  737. +   strcat(namebuffer,Filename);
  738. +   return namebuffer;
  739. + } /* MakePathname */
  740. + 
  741. + int FileReq(rtitle, filename, maxlen)
  742. + char *rtitle;
  743. + char *filename;
  744. + unsigned maxlen;
  745. + {
  746. +   struct FileRequester *frp;
  747. +   static char DirStr[256];
  748. +   static char FileStr[256];
  749. +   int rc;
  750. + 
  751. +   frp = AllocAslRequestTags(ASL_FileRequest,ASLFR_Screen,(ULONG)scr,
  752. +     ASLFR_TitleText,(ULONG)rtitle,
  753. +     ASLFR_DoPatterns,TRUE,
  754. +     ASLFR_InitialPattern,(ULONG)((UBYTE *)"~(#?.info)"),
  755. +     ASLFR_InitialHeight,(scr->Height*11L) >> 4,
  756. +     TAG_DONE);
  757. +   if (frp != 0L) {
  758. +     if (RequestFile(frp) != 0) {
  759. +       strncpy(DirStr,frp->fr_Drawer,256);
  760. +       strncpy(FileStr,frp->fr_File,256);
  761. +       strncpy(filename,MakePathname(DirStr,FileStr),maxlen);
  762. +       rc = 0;
  763. +     }
  764. +     else rc = -1;
  765. +     FreeFileRequest(frp);
  766. +   }
  767. +   else rc = -1;
  768. +   return rc;
  769. + } /* FileReq */
  770. diff -adrc orig/src/input.c ue312/src/input.c
  771. *** orig/src/input.c    Wed Apr 21 10:23:04 1993
  772. --- ue312/src/input.c    Wed Apr 24 13:58:38 1996
  773. ***************
  774. *** 207,212 ****
  775. --- 207,216 ----
  776.       if (!FILENAMEREPLY(prompt, sp, NFILEN))
  777.           return NULL;
  778.   #else
  779. + #if    AMIGA
  780. +     static char sp[NFILEN];
  781. +     if (FileReq(prompt,sp,NFILEN)!=0) return NULL;
  782. + #else
  783.       char *sp;    /* ptr to the returned string */
  784.   
  785.       /* get a file name, default to current buffer's */
  786. ***************
  787. *** 214,219 ****
  788. --- 218,224 ----
  789.           sp = complete(prompt, curbp->b_fname, CMP_FILENAME, NFILEN);
  790.       else
  791.           sp = complete(prompt, NULL, CMP_FILENAME, NFILEN);
  792. + #endif
  793.   #endif
  794.   #if    MSDOS | OS2
  795.       /* change forward slashes to back */
  796. diff -adrc orig/src/search.c ue312/src/search.c
  797. *** orig/src/search.c    Tue Apr 20 14:56:42 1993
  798. --- ue312/src/search.c    Wed Apr 24 16:33:03 1996
  799. ***************
  800. *** 6,11 ****
  801. --- 6,14 ----
  802.    */
  803.   
  804.   #include <stdio.h>
  805. + #ifdef __STDC__
  806. + #include <string.h>
  807. + #endif
  808.   #include "estruct.h"
  809.   #include "eproto.h"
  810.   #include "edef.h"
  811. diff -adrc orig/src/unix.c ue312/src/unix.c
  812. *** orig/src/unix.c    Wed Apr 21 11:09:20 1993
  813. --- ue312/src/unix.c    Wed Apr 24 13:58:39 1996
  814. ***************
  815. *** 899,904 ****
  816. --- 899,913 ----
  817.       /* Get size from termcap */
  818.       term.t_nrow = tgetnum("li") - 1;
  819.       term.t_ncol = tgetnum("co");
  820. + 
  821. +     if (NULL!=(cp=getenv("LINES"))) { int row;
  822. +         sscanf (cp, "%d", &row);
  823. +         if (row) {
  824. +             term.t_mrow= row-1;
  825. +             term.t_nrow= row-1;
  826. +         }
  827. +     }
  828. + 
  829.       if (term.t_nrow < 3 || term.t_ncol < 3) {
  830.           puts("Screen size is too small!");
  831.           exit(1);
  832. ***************
  833. *** 1325,1332 ****
  834.   #if USG || AUX || SMOS || HPUX8 || XENIX
  835.   /** Rename a file **/
  836.   int rename(file1, file2)
  837. ! char * file1;                /* Old file name        */
  838. ! char * file2;                /* New file name        */
  839.   {
  840.       struct stat buf1;
  841.       struct stat buf2;
  842. --- 1334,1341 ----
  843.   #if USG || AUX || SMOS || HPUX8 || XENIX
  844.   /** Rename a file **/
  845.   int rename(file1, file2)
  846. ! const char *file1;                /* Old file name        */
  847. ! const char *file2;                /* New file name        */
  848.   {
  849.       struct stat buf1;
  850.       struct stat buf2;
  851.